home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 November: Tool Chest / Dev.CD Nov 00 TC Disk 2.toast / pc / tool chest / quicktime / quicktime tools / quicktime xcmds / editing stack / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-06-12  |  3.7 KB  |  31 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>11</cardCount>
  7.     <cardID>5687</cardID>
  8.     <listID>2450</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>544</width>
  14.         <height>400</height>
  15.     </cardSize>
  16.     <script>on wClose wName
  17. if movieChanged of window wName then
  18. answer "Do you want to save changes to the movie" ¬¨
  19. && wName & "?" with "Don't Save" or "Save"
  20. if it = "Save" then send saveChanges to window wName
  21. end if
  22. end wClose
  23.  
  24. on buildPopUp
  25. global EditStackmenuItems
  26. put empty into EditStackmenuItems
  27. repeat with i = 1 to the number of cards
  28. get the short name of card i
  29. put it & "," after EditStackmenuItems
  30. end repeat
  31.  
  32. delete last char of EditStackmenuItems -- the last comma
  33.  
  34. end buildPopUp
  35.  
  36. on GoCard
  37. global EditStackmenuItems
  38.  
  39. get PopUpMenu (EditStackmenuItems, 0, bottom of the target, left of the target+1)
  40.  
  41. if it > 0 then
  42. go card it --of this bg
  43. end if
  44. end GoCard
  45.  
  46. function ExtractFileName FileName
  47. put ":" into Delimiter
  48. if Delimiter is in FileName then
  49. repeat with CharPos = length(FileName) down to 1
  50. if char CharPos of FileName = Delimiter
  51. then return char CharPos+1 to length(FileName) of FileName
  52. end repeat
  53. return empty
  54. else
  55. return FileName
  56. end if
  57. end ExtractFileName
  58.  
  59. function ExtractPathName FileName
  60. put ":" into Delimiter
  61. repeat with CharPos = length(FileName) down to 1
  62. if char CharPos of FileName = Delimiter
  63. then return char 1 to CharPos of FileName
  64. end repeat
  65. return empty
  66. end ExtractPathName
  67.  
  68. on newCard
  69. buildPopUp
  70. end newCard
  71.  
  72. on openStack
  73. put empty into foo
  74. QTEditMovie version
  75. put the result into v
  76. put "QTEditMovie: " & v into line 1 of foo
  77.  
  78. put foo into cd field versions of card 1
  79.  
  80. buildPopUp
  81. end OpenStack
  82.  
  83. on closeStack
  84. global currwindow
  85. if there is a window currwindow then
  86. close window currwindow
  87. end if
  88. end closeStack
  89.  
  90.  
  91. function ActiveMovieWindow
  92. global currwindow,currwindow2
  93. get the windows
  94. put empty into theWindow
  95. repeat with i = 1 to the number of lines in it
  96. if line i of it = currwindow or line i of it = currwindow2 then
  97. put line i of it into theWindow
  98. exit repeat
  99. end if
  100. end repeat
  101. return theWindow
  102. end ActiveMovieWindow
  103.  
  104. on primeStack
  105. repeat with i = 1 to the number of cards
  106. go card i
  107. send primeCard to card i
  108. end repeat
  109.  
  110. go first card
  111. end primeStack
  112.  
  113. on primeCard
  114. if there is a field filename then
  115. put  "Your Volume:Your Folder:Your File" into field filename
  116. end if
  117. if there is a cd field "help text" then
  118. set lockText of cd field "help text" to true
  119. hide cd field "help text"
  120. end if
  121. end primeCard
  122. </script>
  123.     <background id="2772" file="background_2772.xml" name="" />
  124.     <background id="5426" file="background_5426.xml" name="" />
  125.     <card id="5687" file="card_5687.xml" marked="false" name="QTEditMovie" owner="5426" />
  126.     <card id="2985" file="card_2985.xml" marked="false" name="Display Tracks" owner="2772" />
  127.     <card id="4005" file="card_4005.xml" marked="false" name="Set Clip Region" owner="2772" />
  128.     <card id="4264" file="card_4264.xml" marked="false" name="Movie and Track Editing" owner="2772" />
  129.     <card id="4439" file="card_4439.xml" marked="false" name="Group Tracks" owner="2772" />
  130.     <card id="5118" file="card_5118.xml" marked="false" name="Set Language" owner="2772" />
  131.     <card id="2226" file="card_2226.xml" marked="false" name="Set Quality" owner="2772" />
  132.     <card id="3776" file="card_3776.xml" marked="false" name="Add Sound Track From Resource" owner="2772" />
  133.     <card id="5196" file="card_5196.xml" marked="false" name="Grab Sound" owner="2772" />
  134.     <card id="7102" file="card_7102.xml" marked="false" name="Flatten Movie" owner="2772" />
  135.     <card id="7312" file="card_7312.xml" marked="false" name="Script Control on Track Selection" owner="2772" />
  136. </stack>
  137.